library(shiny)

shinyServer(function(input, output){
  output$out <- renderText(
    paste("the selected value is:",input$slide)
  ) 
})